Codemasters Artwork Disc ECTS 2000 ( UK)/Codemasters - Artwork Disc ECTS 2000 (UK).bin/pc/xtras/medial~1/setfx~1.dir/Internal_22_Utility Scripts.ls

Text File | 1998-12-01 | 5.0 KB | 207 lines

on ButtonHandler sNum
  if not sNum then
    set sNum to the clickOn
  end if
  if sNum < 1 then
    return 0
  end if
  set mNum to the memberNum of sprite sNum
  if mNum < 0 then
    exit
  end if
  set mname to the name of member mNum
  if not stringp(mname) then
    exit
  end if
  set the member of sprite sNum to member (mname && "down")
  set click to 1
  updateStage()
  repeat while the mouseDown
    if rollOver(sNum) then
      set the member of sprite sNum to member (mname && "down")
      set click to 1
    else
      set the member of sprite sNum to member mname
      set click to 0
    end if
    updateStage()
  end repeat
  if click then
    set the member of sprite sNum to member mname
    updateStage()
    return 1
  else
    return 0
  end if
end

on holdPuppets a, b
  repeat with i = a to b
    puppetSprite(i, 1)
  end repeat
end

on releasePuppets a, b
  repeat with i = a to b
    puppetSprite(i, 0)
  end repeat
end

on resetDisplay
  global fxDisplayMember
  preLoad(member fxDisplayMember)
  RemoveAllEffects(member fxDisplayMember)
end

on ExpandWindow
  global fxWindow, fxHelp
  set r to the rect of fxWindow
  set the bottom of r to the top of r + 300
  set the rect of fxWindow to r
  set the picture of member "helpButton" to the picture of member "helpButton on"
  set fxHelp to 1
end

on CollapseWindow
  global fxWindow, fxHelp
  set r to the rect of fxWindow
  set the right of r to the left of r + 528
  set the bottom of r to the top of r + 230
  set the rect of fxWindow to r
  set the picture of member "helpButton" to the picture of member "helpButton off"
  set fxHelp to 0
end

on OK
  global fxTrackingObj
  setMemberEffects(fxTrackingObj)
  cancel(0)
end

on Settings
  if objectp(fxCurObj) then
    Release(fxCurObj)
  end if
  go("General Member Settings")
end

on About
  if objectp(fxCurObj) then
    Release(fxCurObj)
  end if
  go("About")
end

on cancel cleanUp
  global fxTrackingObj, fxCurObj
  if objectp(fxCurObj) then
    Release(fxCurObj)
  end if
  if objectp(fxTrackingObj) then
    clearTests(fxTrackingObj)
  end if
  if cleanUp then
    resetProperties(fxTrackingObj)
  end if
  set fxTrackingObj to 0
  closeWindow()
  tell the stage
    updateStage()
  end tell
end

on VerifySpriteEffect sNum, fxsym
  if the type of member the castNum of sprite sNum = #alpha then
    set fxl to GetEffectList(sprite(sNum))
    set pos to getPos(fxl, fxsym)
    return pos
  end if
  return 0
end

on enableInterfaceElement i, enabled
  puppetSprite(i, 1)
  if the memberNum of sprite i < 1 then
    exit
  end if
  set memName to the name of the member of sprite i
  if memName = EMPTY then
    set memName to the member of sprite i
  end if
  if enabled then
    if the type of the member of sprite i = #bitmap then
      if the depth of member memName = 1 then
        set the foreColor of sprite i to 255
      else
        if memName contains "Dim" then
          set memName to word 1 to the number of words in memName - 1 of memName
        end if
      end if
      set the member of sprite i to member memName
    else
      if the type of the member of sprite i = #shape then
        if the shapeType of the member of sprite i = #line then
          set the foreColor of sprite i to 255
        end if
      else
        if the type of the member of sprite i = #field then
          if field memName = EMPTY then
            put "--" into field memName
          end if
          set the foreColor of field memName to textColor(#black)
          if the ink of sprite i = 0 then
            set the editableText of sprite i to 1
          end if
        end if
      end if
    end if
  else
    if the type of the member of sprite i = #bitmap then
      if the depth of member memName = 1 then
        set the foreColor of sprite i to 249
      else
        if memName contains "Dim" then
          nothing()
        else
          if memName contains "Down" then
            set memName to word 1 to the number of words in memName - 1 of memName
            put " Dim" after memName
          else
            put " Dim" after memName
          end if
        end if
      end if
      if the number of member memName > 0 then
        set the member of sprite i to member memName
      end if
    else
      if the type of the member of sprite i = #shape then
        if the shapeType of the member of sprite i = #line then
          set the foreColor of sprite i to 249
        end if
      else
        if the type of the member of sprite i = #field then
          if field memName = EMPTY then
            put "--" into field memName
          end if
          set the foreColor of field memName to textColor(#gray)
          if the ink of sprite i = 0 then
            set the editableText of sprite i to 0
          end if
        end if
      end if
    end if
  end if
  updateStage()
end

on textColor c
  if c = #black then
    return the foreColor of word 1 of field "textcolors"
  else
    if c = #gray then
      return the foreColor of word 2 of field "textcolors"
    end if
  end if
end